home *** CD-ROM | disk | FTP | other *** search
/ MacHome 2001 May / MacHome CD (May 2001).iso / mac / Stuff / Software / Home / GEDitCOM 2.9.3 / GEDitCOM / GEDitCOM.rsrc / GeDF_24002_FAMS Printing < prev    next >
Encoding:
Text File  |  2000-12-09  |  532 b   |  47 lines
  1. ! Spouse type
  2. newline
  3. tabwidth 2
  4. style label
  5. get *this.SEX
  6. if F
  7.   text Husband:
  8.   get *valu.HUSB
  9. else
  10.   text Wife:
  11.   get *valu.WIFE
  12. endif
  13.  
  14. ! Spouse Name
  15. hskip 5
  16. style static w=-1
  17. if validlink
  18.   text *it.NAME
  19.   link *it
  20. else
  21.   text <unknown>
  22. endif
  23.  
  24. get *valu.MARR.DATE
  25. ifnotempty
  26.   newline
  27.   style label j=right tw=2
  28.   text Date:
  29.  
  30.   hskip 5
  31.   style static w=-1
  32.   text *it
  33. endif
  34.  
  35. get *valu.MARR.PLAC
  36. ifnotempty
  37.   newline
  38.   style label j=right tw=2
  39.   text Place:
  40.  
  41.   hskip 5
  42.   style static w=-1
  43.   text *it
  44. endif
  45.  
  46. showall NOTE Marriage